DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 
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DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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= SET PARAMETER DCLS COMMAND EXECUTION 16-SEP-1984 00:15:05 VAX/VMS Macro v04-00 Page 0 
e of contents 
(3) 1 T we TRiNg TO CATION y 
(4) STR Ai § 
23 fe om 
(7) ral 
8 sti ne 
(9) TREAM CHARACTERISTICS 
( » $ bf N RODE 
(11) T CONTROL ENABLE/DISABLE 
(12) 2 SET PROMPT 


- SET PARAMETER DCLS COMMAND EXECUTION 197 3tO- 1388 90:13:98 ree Gesre ve H ha 
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DCL.SRC 


oTITL ET = SET PARAMETER DCLS COMMAND EXECUTION 
“IDENT *¥O4=086! 


COPYRIGHT (¢) 1978, olstes rose’ 1984 BY 
thet te tM ATION, MAYNARD, MASSACHUSETTS. 
ALL R S RES wren 


yrs enced I$ ie oo UNDER A LICENSE AND MAY BE USED AND COPIED 


OTNe COPrn GHT NOTICE. this's OFTWARE. OR hai y OTHER 


N I THE 
CoP eS Pde afore OR OTHERWISE oF AVAILABLE TO ANY 
Paanerehneee a NO rit 0 AND, OUNERSHIP OF THE SOFTWARE is HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeePORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


SRARAAAAAAEAAEAAAAKAAAAAAAEAAAAAAEAAAAAAAAAAAAAARAARARAAAAAAAAAAAAERAAAAEAAAAAAETE 
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= SET PARAMETER DCLS COMMAND EXECUTION a o- 138% 90:13:03 pet cae ae Fo 0600 Page (3) 


ir BstErON, 
SET Use 1D OM alae CODE 
VERIFY MOD 


NM 
———4 


N 
CONTROL 
SET PROMPT 


D. N. CUTLER 17-APR-77 


: SET PARAMETER DCLS COMMAND EXECUTION 
41 : MODIFIED BY: 


4 

4 v03-015 HwWS0095 Harold Schultz 25-Jul-1984 

2 Add support for execute-only command procedures. 
4 v03-014 HWS0011 Harold Schultz 13-Feb-1984 


Use gp Me gt to indicate presence/absence of 
CR/LF in prompt string. 
Fix broken branch. 


v03-013 PCG0012 Peter George 12-0¢ t-1983 
Fix bug in SET NOON, ON severity, SET ON sequence. 


v03-012 PCG0011 Peter George 18-Aug-1983 
Change the way that default protection is changed. 
v03-011 K810577 Keith B. Thompson 8-Aug-1983 
Fix a bug in Kbtos73 . “ 
v03-010 KBT0572 Keith B. Thompson 1-Aug-1983 
4! Use STRNLNM in SET DEFAULT 
i V03-009 PCG0010 Peter George 07-Jul-1983 
' Update SET UIC. 
v03-008 PCG0009 Peter George 31-May-1983 
Reference SRMEDEF. 
v03-007 PCG0008 Peter George 27-May-1983 
Add image verification. 
v03-006 PCG0007 Peter George 30-Apr-1983 
Change reference to CRLF. 
v03-005 PCG0006 Peter ‘sorge 17-Feb-1983 


Remove reference to $  iDEFQUALSET. 
Convert to new table  ructure. 


v03-004 PCG0005S Peter George 19-Nov-1982 
ol PROMPT with no argument restore the default 


SSSsssssssss 


22s 


v03-003 PCG0004 Peter George 28-0c t-1982 
Add SET PROMPT. 
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- SET PARAMETER DCLS COMMAND EXECUTION at b+ 90:13:83 yan( vis 


SEP=1 


v03-002 . 60003 
x keyword parsing bug 
v03-001 ac ggo0e 


DCL keyword parsing. 


ne NOW 
Be Ge Ge Ge Ge Ge Ge Se Ge 
a 
iy 
a 


MACRO LIBRARY CALLS 


eect ABDEF 


$ EF 
SCLIMSGDEF 


LOCAL DATA 


»PSECT 
ASCII 
ASCII 


DCLSZCODE ,BYTE ,RD ,NOWRT 
/DEWR/ 
/WGOS/ 


ASCII /LNMSFILE_DEV/ 
TABNAMSZ=.-TABNAM 


DCLST_DSKNAR: : 
-ASCIC /SYSSDISK/ 


ACCESS: 
C 


TABNAM : 


md a ad ek at ed td = = 3 = 


5 
f 
f 
5 
: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
: 


he 


3 CONTROL _CHARS: 


ASCII / Y T 


Peter George 


Peter George -1982 
SET CONTROL y* SET PROTECTION to interact with 


ni 


DELL SRCISET. MAR; ses 3) 


ekaree t-1982 


n SET Oree TION. 


Oi-Jul 


A 
SCRIPTOR FORMAT 
ATA STRUCTURE 


oman 
mm 
> 


;ACCESS PROTECTION CODES 
[PROTECTION CLASSES 


Logical name table to search 
for device names 


: String for default device 


sSey CONTROL CHARACTERS 


0c 
AA 
FFC2° 
79 Y 
2 
5 
50 5E 
54 BE 
6544 
65 54 
54 50 OF 
55 011 
él 


sete 


ToEAMMBETER, DELS, commano execbriOn 1g-sep-1984 go: 15.05 


——--s 


on 


»>SDOOO0C0C 


2s 
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2 
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VNNNNNNNNNOAAO ARO PEPPERS 
SREERAS SSO AANA SSSIEAE ERS SENSE I OOS UO NOOSE 


AX/VMS 


v04-00 2 
DCL SRCISET Mage age 4) 
.SBTTL SET USER IDENTIFICATION CODE 


DCLSSETUIC = SET USER IDENTIFICATION CODE 


aa 


THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET USER 
IDENTIFICATION CODE DCLS COMMAND. 
INPUTS: 
ah ADDRESS OF SCRATCH BU are DESCRIPTOR. 

= ADDRESS OF SCRATCH STACK. 

= BASE ADDRESS OF COMMAND WORK ane. 

= BASE ADDRESS OF PROCESS WORK AREA. 
OUTPUTS: 


THE CURRENT USER IDENTIFICATION CODE IS ESTABLISHED, 


CLSSETUIC:: ZSET USER IDENTIFICATION CODE 
ADDL #PTR C_LENGTH [SKIP OPTION DESCRIPTOR 
k_C_RSLNXT(A10) : 
BSBW DeLSGETOVAT [GET THE VALUE OF THE TOKEN DESCRIPTOR 


TRANSLATE THE OVERALL STRING. 


MOVa —s- R1,= (RO) :PUSH DESCRIPTOR INTO SCRATCH STACK 
PUSHL i ZADDRESS OF STRING IN BUF FER 
PUSHL #63 XIMUM STRING TO RETURN 
MOVL RO 2GET ADDRESS ut OUTPUT DESCRIPTOR 
STRNLOG_§ ir >, (RO), (RO) : TRANSLAT NAME 
mova +,R4 SRESET THE RESULTANT STRING DESCRIPTOR 
3 ? SKIP PAST NODE AND DEVICE NAMES. FIND START OF DIRECTORY SPECIFICATION. 
CLRB (R5)CR4] :MARK THE END OF STRING 
10$: LOCC #*A/:/,R4,(R5) i LOOK FOR DEVICE NAME DELIMITER 
BEGQL 208 [BRANCH IF Oho DEVICE HERE 
SUBL3 #1,RO,R4 :SKIP PAST DEVICE NAME 
MOVAB 1(81)<R5 
CMPB ss (R11) 4. (R11) THIS A Nove NAME? 
BNEQ 208 aR LF ON DEVICE 
DECL R4 ier PAS  SEEOND COLON 
BRB ibs [LOOK FOR MORE NODES OR DEVICE 


; CONVERT THE DIRECTORY STRING TO A UIC. 


508:  BSBB Re. Soyn* :GET THE UIC 

BLBC [BRANCH If ERROR 

MOVL SAVE LONGWORD VIC 

SCRERNL_§ baseruic, (RO) 7SET USER DENTIFICATION CODE 
90$:  RSB [RETURN WITH STATUS 


64-000 Sef USER IDENT FICATION CODE execdribu sgeseecigee OU14:95 YAH/MRE Negro yatcto Pave 


F 
F 3 : SET USER IDENTIFICATION CODE 
F 190 SeTuIC: .WoRD 0 sENTRY MASK 
50 09000000" 9F "Dp | 1 MOVL  @#SCHS$GL_CURPCB,RO [GET CURRENT PROCESS PCB ADDRESS 
cco 66C) CO 1 MOVL (AP) ,PCBSL_UIC (RO) TSET USER IDENTIFICATION CODE 
~ % 193 Status NORMAL : 


coSSLaPAMESE BE EngOONMG ECOTHON Teer t0He OO-TERS YANG tera yO4c00 Pao 


A x «SBTTL CONVERT STRING TO LONGWORD UIC 
A ; DCLSCVTUIC = CONVERT STRING TO LONGWORD UIC. 
A ; INPUTS: 
A : R4/RS = DESCRIPTOR OF UIC STRING 
A 4 : OUTPUTS: 
A : RO = STATUS 
A ; Ri = LONGWORD UIC 
A ; R2-RS ARE TRASHED 
A HcCLSCVTUIC:: 
4 07 A DECL Ri ;SKIP LEADING BRACKET 
7 54 7D O0A9 4 MOVG = R4, = (SP) TSAVE DIRECTORY DESCRIPTOR 
E ps DOAC 4 CLRL 0 = ( §P) SALLOCATE LONGWORD FOR UIC 
FF AS 5B 8F 9 ia 5 cRPS #°A/L/,-10R5) START WITH A BRACKET? 
FF AS 3C 91° «(008 5 CMPB 2 #*A/</,-1(R5) ?START WITH A BRACKET? 
Ee 39 : BNEQ 90S t1F NEQ NO 
53 : BE 10$:  MOVL  SP,R3 [SAVE ADDRESS OF UIC LONGWORD 
00 af 0 eseu 43s Cv fulc [CONVERT GROUP NUMBER 
85 2C¢ c] 1 cnPe #°A/,/7, (RS) END WITH A COMMA? 
02 a3 5 C6 5 MOVW RO, 2(R3) [SAVE GROUP NUMBER 
0076 CA 4 BSBW cyturc [CONVERT MEMBER NUMBER 
65 5D i 9 cD 5 cape #°A/3/, (RS) 3END WITH A BRACKET? 
65 3€ «(91 4 ; CMPB 40s #*A/>/,, (RS) SEND WITH A BRACKET? 
iC 1 06 8 BNEQ $ [IF NEQ NO 
63 B D 308: mOVW «RO, (R3) [SAVE MEMBER NUMBER 
1 BED DB 0 30$: POPL Ri [GET UIC NUMBER 
SE 08 OC DE 1 ADDL 4#8,SP :POP UIC DESCRIPTOR 
E g STATUS NORMAL SRETURN SUCCESS 
05 Eg RSB ; 
£9 | 538 
34 6 ; SIGNAL INVALID UIC SYNTAX 
£9 $: STATUS Inyuic :SET INVALID UIC SYNTAX 
SE OC 0 FO 95$: ADDL #12,SP SRESTORE THE STACK 
F B : 
He 
Fé c§ : TAKE UIC APART AND TRY TO CONVERT IT USING SASCTOID. 
54 04 a3 F4 re Sos: mova  4(R3),R4 :GET UIC DESCRPITOR 
65 54 A O0F8 46 LOCC =—-_-« #*A7, 7, R4, (RS) [LOOK FOR A COMMA 
FC 6 BEQL $ :BRANCH IF NONE 
04 a3 C F 4 SUBL RO, 4(R3) GET LENGTH OF GROUP NAME 
D7 4 DECL R 3CREATE DESCRIPTOR OF REST OF UIC 
54 50 oS MOVG _—_—RO,R4 SAVE DESCRIPTOR OF REST OF UIC 
2 SASCTOID_S’ NAME=4(R3),- :GET THE GROUP ID 


ves NEOSEPTRRE OO:1$:95 Y/N Magro,yO4-00 


a 
oe 


sake 


65 54 5D 06 4 
65 54 E #*A/>/,R4, (RS) 


3 oO - 


wn 
Oo 


; CONVERT ASCII 
ge fyguic: chee. 


OCTAL UIC COMPONENT TO NUMERIC WORD 


RO 
#*A/0/, (RS) ,R1 
208 


o-9 "9 - on 
MC AMmn—DWIO 


ae Bt th tt 


weet) te ee oP oe oP ot os 


DOA LOMD OUI TMT 


SBRANCH ff RROR 
sSAVE DESCRIPTOR OF REST OF UIC 


;LOOK FOR A CLOSING BRACKET 
{BRANCH IF F 
:LOOK FOR A CLOSING BRACKET 
GET LENGTH OF OF MEMBER NAME 
3GET 


:BRANCH IF a 
sSET THE UIC 


CLEAR eC ATION AND CHARACTER 


Q NO 
TACCUMULA TE RESUL 
;POINT TO NEXT CHARACTER 


‘AX/VMS Macro V04-00 


ET PARAMETER DCLS COMMAND EXECUTION Mp Sepa 188t OO:15:85 PAR/VEs Becro vase 


SET DEFAULT DEVICE AND/OR DIRECTORY P= 
.SBTTL SET DEFAULT DEVICE AND/OR DIRECTORY 


meet 


WOooooose”F 


Translate the overall string to get 1 


MOVL #MAX tty -byts. AP 
SuBL2 +5 xT BUF 


: i Create item List for STRNLNM 


level of translation 


3 set max translation counter 
3; allocate buffer 
3; save addr of buffer 


3;¢ 
: : DCLSSETDEFALT = SET DEFAULT DEVICE AND/OR DIRECTORY 
; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET DEFAULT 
§ : DCLS COMMAND. . 
; INPUTS: 
; r = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
$ 4 = Bg tty S OF SCRATCH STACK. 
é BASE ADDRESS OF COMMAND WORK AREA. 
37 : . BASE ADDRESS OF PROCESS WORK AREA. 
95 : OUTPUTS: 
3 : R4,R5 = STRING DESCRIPTOR FOR DIRECTORY PORTION 
39 38 ; SYSSDISK = DEFAULT DISK 
Fe +e 3 THE CURRENT DEFAULT DIRECTORY IS ESTABLISHED. 
59 bai 
0000000A 22 § MAX_TRANS_LVLS = 10 3 maximum translation levels allowed 
9 4 : 
: | : LNM service buffer offsets from R8& 
9 e 
00000 33 3 Q_LOGNAM = 3 Logical name descriptor 
0 9 Q"- TABLE = : Table name descriptor 
1 9 19 L-ATTR = 16 3 Attributes lLongword 
1 9 117 L_-MAX_IND = 3: Max Index 
18 9 1 v- “STRING = 24 3 String length 
1¢ 9 13 T-STRING B = 28 : String buffer 
011C 4 13 S-XLT_BU c=BU = 284 3 Output buffer size 
9 1 
9 i$ OGL. SOS TORT ae 38 3; SET DEFAULT 
oc co 9 18 DL2 ore C_LENGTH 3; skip option descriptor 
AA B 31 wRK_C_RSLNXT(R10) : 
FEAO’ 30 2 y BSBW DCLSGETDVAL : <R1,R2> = token 
at 
g¢ 
: 


SaASSSssss 


790— ss 7¢ CLRQ =-(R9) ; ; clear Last lon quord and length addr 
79 10A8B OD MOVAL L_ATTR(R8),-(R9) : Pi up ottribut tem 
00030004 oF D MOVL b2LNMS ATTRIBUTES@16>+4 , = 


N 
- SET PARAMETER DCLS conn ND EX cri Bn 16-SEP=- : ‘AX/VMS Macro y9s,00 Pa 
SET DEFAULT DEVICE ANDJOR DIRECTORY grSEE13bs 8851883 HBELMES Macro, Noh; ve 2, 
18 A E OI7A MOVA W_STRING Leen »,-(R ; string size goes here 
Ri 1¢ Ag 3 3 3 MOVAB Peo TRING B BUFR) «4 nD : string buffer 
200F F of Dd ! ? MOVL 48:55 _STRING@ 4335 3 
79 ma BE OO} r MOVAL =} INDEX (RB) ,=(R9) i Ro output size 
3 max ex her 
06970004 F 5 ; 4 rf MOVL OSL NAS MAX_ INDEK16>+4,<: 
08 4 0c A 0196 rf} MOVZBL #TAB Ww 42 ire hy i + create fo. {ook tn of logical name 
OC A8 4 gf -9E O19A 4 MOVAB TABNAM anneees R8) : table 
D OIA 4 MOva R1,0_L6 3 set up logical name 
1A 4 STRNLNA_S = 3 translate the logical name 
1A “TABNAM=Q_TABLE(R8) ,- : 
1A 1 LOGNAM=Q~ LOGNAM( (R8S,< ; 
1A § ITMLST=(R : 
0000°8F 50 #61 O1B CMPW RO, #SS$_NORMAL 3 success? 
13 O1BA 354 BEQL «=s«108 : yes 
0000° 8F 81 0O1BC 32 CMPW RO, #SS$_NOLOGNAM 3 no translation? 
18 «#13 «O1CI 4 BEQL «=s«158 > yes 
05 01C3 5 RSB 3; error 
ike 386 
1€4 60 : Check if there was a really a translation, was it a search List 
1€4 61 ; and if it was a canaealed device. 
te: 
14 ae DS 01C4 64 108: TSTL MAX_INDEX(R8) 3 was there a real non-search List name 
1 14 01C7 65 BGTR 208 3 branch if >0, search List 
10 19 0O1C9 06 BLSS $ 3; branch if <0, null translation 
101 E0 ice rt BBS CUTRT CONCEA LED. : ignore if translation concealed 
8 ae 3¢ 100 H MOVZWL WwW CSTE LENKA ; set result string length 
18 ag 28 0104 «= 371 MOVC3) WISTRING_L ap ; copy translation into the buffer 
bs . 107 Lf Toki GNA yr ae = 3 ere the original token use to be 
54 a 7D 0108 74 15$: mova : a CONAN R8), $ setup string descriptor 
10 #11 1 76 BRS 3 parse string 
1E 77 3: 
1E 4 3 We could not use the translation because of concealed name or search List 
3 79 ; so use the original input string 
1E : 
54 68 7D 3 208: mova Q_LOGNAM(R8) ,R4 3; get source descriptor 
1E 4 : 
4 ei : Make sure the last character is a "':'’ so it acts Like a device name 
1E ' 
3A «OFF AS44 COQ 1E 3 CMPB -1(R5)CR4),@°A':* : is last char a colon? 
1 1E BEQL : continue if so 
6544 A 1EA ) MOVB #*A":", C(RS)CR4) : append a colon if not 
4 06 i iH INCL R4 3 count it as well 
1F H 
1F 94 ; Locate the device portion of the string, include any node names found as well 


4 


; 


4 


5 
54 ‘ A 
61 
5 01 ry 


- 
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0000° 8F : 
0000 ° 8F : 


14 AB 
36 


ralel-s-s-2 
— Oe S 
PPP PPP PPP EEF 
POO NP AEM DOD NP AEG DOD NPA EAN DOOD NPA OOD NAME 


a a ss a tt 


a i | 
WO FH OMes > O-CUMMMMMMmmm@ auTe Kw Owner Owe 


~“ 
So 
ad 


SNS SERIALS 


PEEP E PPP PEPE PEP PEPE PEEP EPP PEEP PPE PE 


VINES EES 


; at this point: <R1,R2> = device (+node) 
<R4.R5> = rest of string 


AB DCLST_DSKNAM,R7 ; 
HOVZBL (R )+7R6 : 
SUBL3 R6,R1.R ; 
DECL «=o ; 
BNEQ 80S 3 
PUSHR ” M<R1,R2> ; 
CMPC3 Rg phe) GR (R7) ; 
OPR 3 


pee toh 


he device portion has a translation 
ctory spec vrees ten, oan rep us 


2 Glrectory spect 


es Qe 

Wet ome 
ee | 

oe @ ce 


oS 
wn 
J 
m 
o 
aa 


R1 
MOVa R1,Q_ LOGNAM(R8) 


STRNL : 
~TABNAM=Q _TABLE(R8),- 
LOGNAM=0~ LOGNAM( (RBS,- 
ITAL STs =(R : 

CMP #SS$_NORMAL : 

BEQL 50 : 

CMPW ©=—s- RO. #SS$_NOLOGNAM : 

BEQL «1208 : 

RSB $ 

90$: STL MAX_INDEX(R8) 

prea «| 1208 


; ; check if the device portion = ‘SYSSDISK', 


TER ELE, common enecUTION 1G-SEP-1964 0:16:05 YAN/VRE Macro, 04-00 Page 19 


gi 40$: CLR CRS) CR4I 3 mark end of strin 
LOC @°A/:/,R4, CRS) 3 look for device mene delimiter 
BEQ 4 3 jy + if no Gevice here 
CMP (R14, (R1) 3 is $9 e@ name? 
BNEQ 998 3 Sens if only dev ce 
MOVAB (R1),R3 ; set address of end 9 node string 
Pye #2 RO ; and length of remainder 
toc #7A/:7/,R0,(R3) : see if device name is here 
EQL 708 i: oranch if none ae use node 
MOVAB R1),R3 3; set —_ of device na 
788: ROVL R3,R 3; sete ef dev once nqne for disk 
60$: MOVL R5,R 3; save a evice stri ng 
MOVL R1,R : set start of direc | ot strt ng 
SUBL Re oR 3: find Length of covke cq nase 
SUBL R1,R4 ; adjust directory string Length 


if so ignore it 


address of device name counted string 
et length and address of first byte 
ind } [erence in name string sizes 

ghogs * byte difference(the colon!) 

f coche t be the special name 

save registers to be used 

check for reserved system name 

restore value 

branch if no device name assignment 
needed 


and it contains a 
ng the translation 


ed in esgic Yenn then report an error 
ications appeared in the same string 


do not tote ++ geo into trninm 
set 
translate Sthe logical name 


success? 

yes 

no translation? 
yes 

error 


3; branch if translation or 


search lis 


— ee 


Sef 


T PAR 
DEF A 


a 


SSRESR Fanaa EE LSSSSSaS Se SeSSAA SSeS SSS 


a at ot ot ot ot a ea eae 


Saesseses 
s 
5 


¢ 9 ; 
B/OR DIRECTORY 'S-SEP-19Be 95:48:09 EDCLSACTSETcMARS 


TER DCLS 

DEWIPE CANS oon DURES TORY 

4 BBS §§ #LNMSV_CONCEALED,- : 

4 AT TNTRBD fo08 

é Loce #*A/ Pe 

456 encase 

mm ae 

4 EOL * eee... F 

460 958: STL i : 

é BNEG 1008 : 

4 MOVIL W_STRING LEN(RB),~ : 

4 Q"LOGNAMTRE) : 

4 MOVES WISTRING_LEN(RE) ,- : 

466 TaSTRING BUF (RB) ,~ : 

4 @0_LOGNAR+4 (R8) 3 

4 MOva GQ COGNAM(RE) .R4 : 

4g SOBGTR AP.110$ : 

4? 100$ STATUS DIRECT ; 

47g 1108: BRU 408 : 

474 1208: MOV  @_LOGNAM(R),R1 : 

475 INCL RT : 

£38 

78 : Create/update the logical Sdisk 
: litt hae: 
¢ PUSHR #*M<R1,R2.R6,R7> , 

PUSHL : 
4 PUSHAQ 4(SP) : 
5 PUSHAQ 16(SP) : 
6 PUSHL —#LOGSC PROCESS : 
CALLS @ SES YSSCRELOG : 

8 BLBC RO. 150 : 
9 

& 

9% 


E 1408 
PUSHR #°M<R4,R5> 
CLR =(SP) 

8(SP) 
CALLS #5 ,G°SYSSSETDDIR 

L68C =. RO. 1508 

NORMAL 


me Uh 


or concealed 


"BERING LENCRBD =: is there a directory in there? 


re unless device/dir translation 


: {gno 
TRING_LEN(R8),=; % there a di in th 
‘ op iP ing. . directory in there? 


ignore unless covteatetr translation 
any directory specified exe tc tly? 
f so, then error in specificat 


set result string length 


pe translation into the buffer 
where the original token use to be 


setup perrae descriptor 

Limit translation levels 

error in directory specification 
continue translat.on device portion 


restore device portion descriptor 
restore colon to end of string 


i 
ion 


which holds the current 


; descriptors for logical and equivalence na 
defau 


access mode is lted 

acerese of equivalence name desc 
descriptor of name to relate with 
table number 

clear descriptor on return 

branch if error creating name 


any directory field 
branch if pony 


descriptor for orrentere name 
zeros as ar nts 2 & 
address of directory string 
set the default directory 
branch if error from rms 
assume all is aok 


—in 
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PROTECTION DCL.SRCJSET.MAR;1 
p 5 RA .SBTTL SET PROTECTION 
p ¢ DCLSSETPROT = SET PROTECTION 
D ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET PROTECTION 
4 3; DCLS COMMAND. 
p \¢ INPUTS: 
D 14; Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
D 18; R9_= ADDRESS OF SCRATCH STACK. 
D 1 ; R10 = BAS ADDRESS OF COMMAND WORK AREA. 
Py S e 
p R BASE ADDRESS OF PROCESS WORK AREA 
p 3 OUTPUTS: 
p ; THE CURRENT DEFAULT PROTECTION IS ESTABLISHED. 
D o 
D 4 DCLSSETPROT:: :SET PROTECTION 
7E D4 02D CLRL 0s = (SP [WHERE TO RETURN PROTECTION 
7E 3 DO 02D $ MOVL  SP,-(SP) ;NOTE WHERE PROTECTION IS TO BE PUT 
: D4 0208 CLRL 7488) [DON'T WANT TO SET PROTECTION 
00000000 ' 9F F DD CALLS @ QFSVSSSETDFPROT [GET DEFAULT PROTECTION 
59 D 4 MOVL (SP)4+R SCOPY PROTECTION TO USEFUL REG 
C E ADDL #2*PTR_C_LENGTH,- [SKIP PAST OPTION DESCRIPTOR 
BA AA £9 WRK_L_RSCNXT(R10) : AND /DEFAULT QUALIFIER 
FD1e" 8 : 10$ BSBW =-d OCLSGETDVAL :GET NEXT DESCRIPTOR VALUES 
55 E CMPB 0s #P TR_K_PARAMETR,RS SPARAMETER VALUE? 
F 4 BNEQ z1F NEG NO 
FDOB CF 004 6 F 5 LOCC  (R2),#4,CLASS SLOCATE PROTECTION CLASS 
F 6 BEQL Ss 6 IF EQL INVALID CLASS 
D FB DECL [CALCULATE STARTING BIT NUMBER 
38 9 ¢ FD MULL3 #4,R0,R8 : 
59 F F INSV = @* KF, RB #4 RD :START WITH NO ACCESS 
4 9 4 CMPB #PTR-K_COLON, RG [PROTECTION VALUE SPECIFIED? 
a 4 BNEQ 108 SIF NEQ NO 
FCF2° 4 BSBW DCLSGETDVAL [GET PROTECTION VALUE DESCRIPTOR 
37 31 4 MOVL RILR + SAVE LENGTH OF VALUE STRING 
FCE9 CF 44 20$:  Loce {R2)+ #4 ,ACCESS SLOCATE PROTECTION CODE 
1 1 4 BEQL TIF EQL INVALID PROTECTION CODE 
D 19 46 DECL «=R SCALCULATE RELATIVE BIT NUMBER IN FIELD 
50 c 1 4 ADDL = RB, [CALCULATE ACTUAL BIT NUMBER 
00 : 4 BBCC —- RO. RO, 308 sALLOW SPECIFIED ACCESS 
EC Fat 49 30S: SOBGTR 208 ANY SCAN? 
9 DD 40$: PUSHL 196 [SET NEW DEFAULT PROTECTION ARGUMENT 
E 06 CLRL. = (SP) SZERO ADDRESS OF RETURN DESCRIPTOR 
At DF PUSHAL (SP) TADDRESS OF NEW PROTECTION 
00000000°9F 0 Fe : CALLS #3, a#SYSSSETDFPROT [SET DEFAULT PROTECTION 
é : 50S: STATUS 1VPROT [SET INVALID PROCTECTION CODE 
: 3 60$: STATUS IVKEYW [SET INVALID KEYWORD 
05 RSB : 
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«SBTTL SET VERIFY MODE 
DCLSSETVERIFY = SET VERIFY MODE 


THI st Bh glttte AS AN INTER COMMAND TO EXECUTE TH T VERIFY 
Ma NAL EXECUTE THE SET VERI 


INPUTS: 


a 


= ADOR OF Senay STACK. 
Bae ADDRESS OF COMMAND WORK AREA. 
OUTPUTS: 


n = wae, $3 OF SCRATCH BUFFER DESCRIPTOR. 
Rit = ADDRESS OF PROCESS WORK AREA. 
THE VERIFY MODE IS ESTABLISHED. 
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CLSSETVERIFY:: sSET VERIFY MODE 


PARSE THE COMMAND. 


BS D L$GETDVAL 3GET OPTION DESCRIPTOR 
BLBC 3&3, 1 TIF LBC VERIFICATION SPECIFIED 
CLRL OR [DISABLE ALL VERIFICATION 
BRB 4 $ TIGNORE ANY KEYWORDS 
10$:  MOVL #3,R6 SASSUME ALL VERIFICATION IS SPECIFIE 
DCLSGETDVAL 3GET KEYWORD DESCRIPTOR 
FI #PTR_K_ENDLINE ,RS sE0L? 
BEQL 408 ZYES, THEN SET SPECIFIED MODES 
MOVL # ASSUME NO KEYWORDS ARE SPECIFIED 
208:  CMPB AH LYE (R2) 31S FIRST CHAR "P''?, 
BEQL ©. 25$ SYES, THEN PROC Ss, "PROCEDURE" 
SNEe Son f’ — Fs fuiRo Siitess © "IMAGE" 
98 25$ BICL n° ; S INDICATE RR ROCEDUR * SEEN 
BISL #2, Ms TENABLE PROCEDURE VERIFICATION 
BLaC OR SIF LBC PROCEDUR VERIFY SPECIFIED 
BICL ae [DISABLE PROCEDURE VERIFICATION 
BRB 356 [GET NEXT 
308 BICL ae SINDICATE "IMAGE" SEEN oy 
Bist fi. : ENABLE Image VERIFICATION 
LB R3, [IF LBC IMAGE VERIFY SPECIFIED 
pict fi. [DISABLE IMAGE VERIFICATION 
358: SBu oo [GET KEYWORD DESCRIPTOR 
CMPL #PTR_K_ENDLINE,RS TEOL? 
BEQL TYES, THEN SET SPECIFIED MODES 
1 BRB 308 [GET NEXT 
12; 
1 : UPDATE PROCEDURE VERIFICATION STATE. 
15 40s: Bas :BRANCH IF “PROC NOT SPECIFIED 
1 1S sek $3 VERIFY, -PRC_W_FLAGS(R11) SASSUME VERIFICATION IS SPECIFIED 
1 BBS 8,5 SBRANCH IF SO 


Oe 


= SET PAR 
SET VERIFY 


cS comm exechribu gate SRIEES UCU Mere ERG 


68 ~ geo of a a ie : $08: Bins ea beg hgtirY. oPRC_W_FLAGS(R11) prsaeLe VERIFICATION 


HI IMAGE’ SPECIFIED 
AMAL RETURN STA 
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»SBTTL SET IMAGE VERIFY MODE 
; DCLSSETVERIFY_IMAGE = SET IMAGE VERIFY MODE 
; THIS ROUTINE IS CALLED TO SET IMAGE VERIFY MODE. 
INPUTS: 


R¢ = IMAGE VERIFY FLAGS, LBC MEANS CLEAR, LBS MEANS SET 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 


“+ 


OUTPUTS: 
THE IMAGE VERIFY MODE IS ESTABLISHED. 


AF - 

AF 

AF 0$: 

AF CLSSETVERIFY_IMAGE: : sSET IMAGE VERIFY MODE 


GET INPUT STREAM INFORMATION. 


i 


51 1C AB OD MOVL PRC_L L_INDFAB(RI1} «1 :GET ADDRESS OF GENERIC FAB 
52 oogt (BO ; MOVL  PRC“L“IDFLNK(R11).R2 'GET ADDR OF CURRENT IND FRAME 
0000'c1 A 0588 MOV IDF“ WIINPIFICR2),FABSW_IFI(R1) GET INPUT IFI 
E : 
E ; UPDATE IMAGE VERIFICATION STATE BOTH IN PRC AND FOR CURRENT INPUT STREAF.. 
OF £9 . BLBC ZBRANCH IF /NOIMAGE 
0 03¢ BBS 56,70 : VERIMA GF 31F IMAGE VERIFY ALREADY SET, 
18 doar B ¢ PRC GB FLAGS2(R11),9 THEN DONE 
OOAF CB 80 er as C 4 B1SW Pe PRC A_VERIMAGE, dae? x FLAGS2(R115:ENABLE IMAGE VERIFICATION 
1 ¢ 5 BRB sEXECUTE SMODIFY 
07 «+€1 03D 5 70$: BBC #PRC_V VERIBAGE z1F IMAGE VERIFY ALREADY CLEAR, 
0c Oar cB D PRC_B FLAGS2(R11) 9 HEN 
OOAF CB 80 8F AA D6 BiCw  #PRC_A_VERIMAGE, dg2° y 4 FLAGS2(R115;DISABLE IMAGE VERIFICATION 
we 1 DD 80$:  BSBB DCLSVERIFY_IMAGE ZENABLE OR DISABLE VERIFICATION 
07 E DF : BLBC =E_—«aRO, 9 TRETURN ERROR STATUS 
# 4 908: STATUS NORMAL :RETURN SUCCESS 
05 O3E 95$:  RSB ; 


—_ 


H 
64-000 woSSEy MAN" PTABSASARMMUNDGRERGPT!O™“ECHEPCHOBE QOLTERS YANG taeroyym4cco Page 1g, 
rs «SBTTL MODIFY INPUT STREAM CHARACTERISTICS 
r DCLSVERIFY_IMAGE = MODIFY THE INPUT STREAM CHARACTERISTICS. 


INPUTS: 


Ri = INPUT FAB 
R11 = ADDRESS OF PRC DATA STRUCTURE 


OUTPUTS: 
RO = STATUS 
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CLSVERIFY_IMAGE:: 
TSTB COge ENOML YL CATT) sARE WE IN EXE-ONLY MODE? 


BNEQ :YES, DON'T DO ANYTHING. 
08 68 06 F RBS #PRC_V_MODE,PRC_W_FLAGS(R11),10$;BRANCH IF NOT INTERACTIVE 
5 D MOVL sof ASSUME SUCCESS 
SC AB p tsi PRE _L_INDEPTH(RI1) :BRANCH IF LEVEL 0 
0000°¢1 | 03 B 10$: mov #RMESC pPrECHO FABSL_CTX(R1) SET TYPE CODE 
2" B4 CLRY = FABSL_CTX#2(R15 ;ZERO ISI VALUE 
7 €1 9 C #PRC_0_VERIMAGE ,- IF IMAGE VERIFY SET, 
98 OOAF CB 9 PRC_B_FLAGS2(R11) 208 : THEN SET THE ISI 
1 00 4 9 MOVL  PRC“L“INDOUTRAB(R11) ,RO 3GET ADDR OF OUTPUT RAB 
"co OB 9 MOVW  RABSWTISI(RO),- :SET OUTPUT ISI 
' 69 FABSL-CTX+2(R1) ; 
1 OD 96 208 PUSHL RI TSAVE_R1 
0000'c1 00000000'°8F CC 69 BIS #FABSH ESC. FABSL_FOP(RI) :SET ESC_BIT IN FOP 
2 38 MODIFY FAB=(RT :MODIFY THE INPUT STREAM 
31 8ED0 8 POPL SRESTORE R 
0000°C1 00009000° FCA ; 9 BICL  #FABSM_ESC,FABSL_FOP(R1) ;CLEAR ESC BIT IN FOP 
"Cl «D4 7 _ CLRL FABSL_CTX(R1) : 
5 702 90$: RSE SRETURN STATUS 


; 7 
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«SBTTL SET ON MODE 
DCLSSETON = SET ON MODE 


+ 


THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET ON 


MODE DCLS COMMAND. 


= ADOR 
= ADOR 


E 
E 
Rit = BASE 


‘ 
THE ON MODE IS ESTABLISHED. 
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DCLSGETDVAL 
RMA 


NORMAL 
PRC_W_ONLEVEL(R11),R1 
#8, TRT) 


10 
1CR1),(R1) 
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(R1),1¢R1) 
#8, (R21) 
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~SBTTL SET CONTROL ENABLE/DISABLE 
DCLSSETCTLY = SET CONTROL MODE 


THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET CONTROL=KEY 
MODE DCLS COMMAND. EXECUTE THE SET CONTROL=KE 


+ 


; INPUTS: 
5 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
= e444 SS_OF SCRATCH STACK. 
“4 $ matt tt OF COMMAND WORK AREA. 
ASE ADDRESS OF PROCESS WORK AREA. 


; OUTPUTS: 
bby! Y AND OUT-OF-BAND AST'S ARE ENABLED OR DISABLED FOR THIS 


= Be Se Ge Ge Se Se Se Se Se Ge Se SeSeSeSsetete 


50$:  BISL3 P) ,PRC_L_OUTOFBAND(R11) ,R1 GET CHARACTER MASK 
F LBC, THEN ENABLE SPECIFIED 
#Pac V_CTRLY, (SP) ,60$ TIF Not CTR L/Y, THEN SKIP 


SCLSSETCTLY:: SET CONTROL MODE 
CLRL 0 = ( SP) TALLOCATE CHAR MASK ON STACK 
BSBW = OCLSGETD [GET OPTION DESCRIPTOR 
ASSUME PTR V.NEGATE EQ 20 
VL :SAVE CNO) STATUS FOR FUTURE USE 
D saan’ DVAL :GET FIRST LETTER 
CPB sR'S, #PTR_K_ENDLINE EN D OF INE? 
BNEQ 6-30 SIF YES ASSUME Y 
BSBB TRLY ‘OT ueRoise” eset CONTROL_Y BY DEFAULT 
BRB 0$ TALL DONE 
30$:  Locc R2) ,#26 CONTROL _ CHARS ;GET INDEX OF LETTER 
BBSS 0, ($P) ,40$ [SET CHAR BIT IN MASK 
40$ BSBW (serovar GET NEXT PARAMETER 
c #PTR_K_ENDLINE 3EN D OF 
BNEQ § [LOOP IF thot 
$ 
6,7 
L 
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H 
ECIAL CTRL/Y PROCESSING 


“DO SP 
$08: BICL3 (SP),PRC_L_OUTOFBAND(R115,R1 SET MASK FOR DISABLE 
$:  JSB DeL SRESETOOS TENABLE/DISABLE APPROPRIATE AST ROUTINES 
80$ MOVL (SP)+,RO i RESTORE STACK 
STATUS NORMAL 3SET NORMAL COMPLETION STATUS 
CTRLY: BISL #pRe R M_CTRLY,PRC_L_OUTOFBAND(R11) ASSUME ENABLE SPECIFIED 
BLBC IF L ¢ THEN ENABLE SPECIFED 
BICL a 708 CTRLY,PRC_L -OUTOFBANDR {) “CLEAR CTRL/Y BIT IN MASK 
bie pseu UnDECSONCTE YAS ;RESET onthor Y COMMAND TEXT 
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SET PROMPT LS COMMAND EXECUTION 10~3Ep=198¢ 29:48:08 EpcLvsRCSSET MMRST™ 


¢ : .SBTTL SET PROMPT 
: DCLSSETPROMPT = SET PROMPT 
¢ 3 THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SET PROMPT 
¢ : DCLS COMMAND. 
: 3 INPUTS: 
¢ B01 ; Rg = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
C6 & 3 ; R9_= ADDRESS OF SCRATCH STACK. 
C6 «803; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
¢ 4 ; Ril = BASE ADDRESS OF PROCESS WORK AREA. 
: $ 3: OUTPUTS: 
¢ $ ; THE DCL PROMPT STRING IS CHANGED. 
¢ B10 DCLSSETPROMPT:: Set PROMPT 
OOF1 CB O0000000'EF B80 046 §& MOVW  DCLSCRLF,PRC_W_PMPTCTRL(R11): ASSUME /CONTROL 
cr 5 SETBIT PRC_V_CARRCNTL-PRC_W_FLAGS(R11) :SET CR/LF FLAG 
FB2A" 30 D BSBW DELSGETDVAL GET FIRST TOKEN 
00 55 91 6 B14 CMPB = s«R'S, @PTR_K_COMDQUAL :/ENOJCONTROL QUALIFIER? 
0E 12 0409 815 BNEQ 2 =NO, THEN BRANCH 
bB SCs 6 ASSUME PTR_V_NEGATE EQ 20 : 
08 53 «£9 0408 ff BLBC «aR, T [BRANCH IF NOT NEGATED 
OOF] CB 4B4 O4DE ff Q CLRW = PRE_W_PMPTCTRL(R11) “SET NOCONTROL 
E CLRBIT PRC-V"CARRCNTL.PRC_W_FLAGS(R11)  ; INDICATE NO CR/LF 
FB17° E B20 108: BSBW © OCLSGETDVAL :GET “'PROMPT'’ TOKEN 
FB14° E B21 20$: j# BSBW  DCLSGETDVAL [GET PROMPT STRING 
046 55 ec § : CMPB #PTR_K_ENDLINE SIF PRESENT 
17 i EF 8 BNEQ STHEN RESET THE PROMPT 
00009000" EF D Fl 824 MOVL § DCLST_PROMPT,- SELSE RESTORE THE DEFAULT 
00F3 CB fF? B25 PRC 8 CONTINUE (R11) ; 
09° F 90 O4FA & $ move #0CC$C_PROMPTLEN,- : 
OOF i FDC PRC_B_PROMPTLEN(R11) 
11 8 BRB 80$ : DONE 
50 000388FA oF DO 829 30$: MOVL #CLIS STRTOOLNG,RO SASSUME STRING IS TOO LONG 
2 | pt B30 CMPL R1,#ERT_K_MAX_PROMPT 31S IT TOO LONG? 
1 A C 831 BcTRU 90$ :YES, THEN ERROR 
— § ; ASSUME ENT_K_MAX_PROMPT LT 256 : 
0OFO cB.C«éS)—=«é«i};stsékd : ADDB3. = #3, R1-- SSAVE LENGTH OF PROMPT 
B34 PRC_B’PROMPTLEN(R11) _—: 
00F4 CB 262) «51s 280514 835 MOVC3. R1,TR2),PRC_G_PROMPT(R11) :SAVE PROMPT STRING 
1A of 6 0s: STATUS NORMAL :RETURN NORMAL STATUS 
05 H $: SB 
§ ; 3 END 


--- 
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CWS ATTRIBUTES 
LABS HAK INDEX 


STRING 

LOG e PROCESS 
JATTR 

L“MAX_ INDEX 
MAX. TRANS_LVLS 
PCBSL_UIC 
PRC_B-CONTINUE 
PRC-B-DEFRADIX 
PRC_B-EXMDE 
PRC~B-EXMDEPWID 
PRC“B-EXONLYL 
PRC-B-FLAGS 
PRC-B-IMGFLAG 
PRC-B-OUTFLAGS 
PRC~B-PROMPTLEN 
PRC-C-LENGTH 
PRC~G_ COMMANDS 
PRC~G-PROMPT 
PRC-K-LENGTH 
PRC“L-CURRKEY 
PRC~L-EXMDEPADR 
PRC-L-EXTARG 
PRC-L-EXTBLK 
PRC-L-EXTCOD 
PRC-L-EXTHND 
PRC-L-EXTPRM 
PRC-L-IDFLNK 
PRC-L-IMGACTSTS 
PRC“L-INDCLOCK 
PRC-L- INDEPTH 
PRC-L-INDFAB 
PRC-L-INDINPRAB 
PRC“L~INDOUTRAB 
PRC-L-INPRAB 
PRC-L-LASTKEY 
PRC“L“LSTSTATUS 
PRC“L-ONCTLY 
PRC~L-ONERROR 
PRC~L~OUTOF BAND 
PRC-L-OUTRAB 
PRC~L “OUTRABCTX 
PRC“L“PPFLIST 
PRC“L-RECALLPTR 
PRC-L-RESTART 
PRC“L“SAVAP 
PRC“L~SAVFP 
PRC“L SEVERITY 
PRC-L~SPUN 
PRC“L-STACKLM 
PRC“L“STACKPT 
PRC“L“STATUS 
PRC“L“STS 
PRC“L“STV 
PRC“L~SYMBOL 
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SET 
Psect synopsis SEP=1 DCL. ERIS 


deerme meconeasouvses2s$ 


! Psect synopsis ! 


Pram omaseanonaacom 


PSECT name Allocation PSECT No. Attributes 

» es . ( -») 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NO 
SABSS SpDDDSES ( ->) O17 ¢ #1.) NOPIC USR CON ABS LCL NOSHR' EXE 
DCLSZCODE 00000522 ( 1314.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR' EXE 


doeesceeswasce sess amemaaasneatd 


! Performance indicators ! 


foesemenoeseosruewowonasana} 


Phase Page faults CPU Time Elapsed Time 
Initialization :00:00.05 

ponunees processing fi : ee at 6-50 
Synbol tabl + :00:01.49 : 2 

7 7 wie id $ $ 71 : 2 

dF table output 2 :00:00.21 :00:00. 
Psect synopsis output :00:00. 0:00:00. 
Cross-reference output 0: 3: x * 0: 9. 
Assembler run totals 57 0:00°:17.4 :00:57. 


£38 york ing ses Limit was 1500 pages 
° 39 bytes (124 pages) of virtua memory were used to buffer the intermediate sefe. 
here were 60 pages of symbol sabi, space al ig d to hold 944 non-local gnd 65 local symbols. 
a3 source lines were read in Pass 1, produc 9,} object records in Pass 2. 
0 pages of virtual memory were used to define 33 macros. 
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; Macro Library statistics ; 


Macro Library name Macros defined 
a FDEL 0843 ae “4 TS ah 1 8 
:COCL.OB mae 1 
ana ALB: 2 if 
biti (all. libraries) 26 


11735 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 


et he Page #3, 


NOWRT NOVEC evte 
RD WRT NOVEC BYTE 
RD NOURT NOVEC BYTE 


MACRO/LIS=L1S$:SET/0BJ=0BJ$:SET MSRCS:SET/UPDATE=(ENHS: SET) +EXECMLS/LIB+LIB$:DCL/LIB+SYSSLIBRARY : SYSBLDMLB/LIB 
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